home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / musictex / older-versions / musictex.4991 / MUSICD11.MF < prev    next >
Text File  |  1992-02-29  |  869b  |  35 lines
  1. % this is musicdef.mf
  2. %
  3. % input modes
  4. % input local
  5. mode_setup;  % This to use modes.mf N. Brouard
  6. %
  7. %fontmaking:=1;
  8. turningcheck:=1;
  9. displaying:=2;
  10. designsize:=11;
  11. nhh#:=1/4designsize; %noteheadheight
  12. nhw#:=1.2nhh#; %noteheadwidth
  13. beamht#:=0.48nhh#; %Balkenst"arke
  14. nhh:=nhh#*pt; %noteheadheight *pt
  15. nhw:=nhw#*pt; %noteheadwidth  *pt
  16. thinwidth := 0.1pt;
  17. beamht := beamht#*pt;
  18. s := 0.7pt;
  19. S := 1/16designsize;
  20. %pair constants
  21. pair ne,se,sw,nw; %northeast,southeast,southwest,northwest
  22. ne = up+right; se = down+right; sw = down+left; nw = up+left;
  23. openit;
  24. def clear =
  25.   numeric x[],y[],x[]l,y[]l,x[]r,y[]r,dx[],dy[];
  26.   pair    sh[];
  27. enddef;
  28. %
  29. pickup pencircle scaled (0.1pt);
  30. def penstrike text t =
  31.  forsuffixes e = l,r: path_.e:=t; endfor
  32.  if cycle path_.l: cyclestroke_
  33.  else: filldraw path_.l -- reverse path_.r -- cycle fi enddef;
  34. %
  35.